home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / keys.arc / KEYS.BAS next >
Encoding:
BASIC Source File  |  1986-11-16  |  21.5 KB  |  807 lines
  1. 1000 DIM PARA%(3700)
  2. 1010 DIM CHUTE%(3700)
  3. 1020 DIM BEANS%(3000)
  4. 1030 DIM CORN%(3700)
  5. 1040 DIM WHEAT%(3000)
  6. 1050 '+++++++++++++++++++++++++++++++++
  7. 1060 'MUST HAVE IBM WITH GRAPH CARD.  +
  8. 1070 'FROM DOS> ENTER BASICA; LOAD    +
  9. 1080 '"KEYS; RUN.                     +
  10. 1090 '+++++++++++++++++++++++++++++++++
  11. 1100 'DIM X(1000)
  12. 1110 SCREEN 2:CLS:KEY OFF
  13. 1120 '+++++++++++++
  14. 1130 '
  15. 1140 SCREEN 2:CLS:KEY OFF
  16. 1150 LOCATE 1,1:PRINT"Grains"
  17. 1155 LOCATE 2,1:PRINT"Copyright Keys 1986"
  18. 1160 '
  19. 1170 '
  20. 1180 FOR I=0 TO 4 STEP .2
  21. 1190 CIRCLE (320,100),100,,,,I
  22. 1200 '+++++
  23. 1210 CIRCLE (470+X,100),50,,,,I
  24. 1220 CIRCLE (170-X,100),50,,,,I
  25. 1230 '+++++
  26. 1240 NEXT I
  27. 1250 '++++
  28. 1260 FOR I=0 TO 150 STEP 10
  29. 1270 LINE (319,0)-(319+I,199),0,BF
  30. 1280 LINE (319,0)-(319-I,199),0,BF
  31. 1290 NEXT I
  32. 1300 FOR I=0 TO 100 STEP 10
  33. 1310 LINE (170,50+I)-(470,150-I)
  34. 1320 'STOP
  35. 1330 NEXT I
  36. 1340 'LINE (100,50)-(550,150),,B
  37. 1350 'LINE (320,50)-(550,150),,B
  38. 1360 'STOP
  39. 1370 'FOR I=1 TO 55:PRINT:NEXT I
  40. 1380 '++++GET AND PUT DEMO
  41. 1390 '
  42. 1400 '
  43. 1410 '
  44. 1420 '
  45. 1430 '
  46. 1440 '
  47. 1450 GET (100,50)-(319,150),PARA%
  48. 1460 GET (320,50)-(550,150),CHUTE%
  49. 1470 'CLS
  50. 1480 '
  51. 1490 '
  52. 1500 '
  53. 1510 X=320
  54. 1520 Y=100:Z=5
  55. 1530 PUT (X,50-Z),CHUTE%,XOR
  56. 1540 PUT (Y,50+Z),PARA%,XOR
  57. 1550 'STOP
  58. 1560 'FOR DELAY=1 TO 100:NEXT
  59. 1570 'PUT (X,50-Z),CHUTE%,XOR
  60. 1580 'PUT (Y,50+Z),PARA%,XOR
  61. 1590 X=X-40:Y=Y+40:Z=Z+15
  62. 1600 IF Z=50 THEN 1620
  63. 1610 GOTO 1530
  64. 1620 FOR K=1 TO 55:PRINT:NEXT
  65. 1630 '++++BEANS
  66. 1640 SCREEN 2:CLS
  67. 1650 FOR I=1 TO 30
  68. 1660 CIRCLE (360,50),I:CIRCLE (360,75),I
  69. 1670 NEXT I
  70. 1680 LINE (320,37)-(355,88),1,BF
  71. 1690 '++++
  72. 1700 LINE (390,37)-(450,88),1,BF
  73. 1710 LINE (420,47)-(450,57),0,BF
  74. 1720 LINE (420,67)-(450,77),0,BF
  75. 1730 '++++
  76. 1740 FOR K=1 TO 51
  77. 1750 LINE (485-K/1.5,37+K)-(485+K/1.5,37+K)
  78. 1760 NEXT K
  79. 1770 FOR K=1 TO 20
  80. 1780 LINE (485-K/1.5,70+K)-(485+K/1.5,70+K),0
  81. 1790 NEXT K
  82. 1800 LINE (475,70)-(495,75),1,BF
  83. 1810 '++++
  84. 1820 LINE (520,37)-(580,88),1,BF
  85. 1830 FOR K=1 TO 15
  86. 1840 LINE (540,75+K)-(540+K,75+K),0
  87. 1850 LINE (560,36+K)-(545+K,36+K),0
  88. 1860 NEXT K
  89. 1870 '++++
  90. 1880 LINE (582,37)-(639,88),1,BF
  91. 1890 LINE (605,47)-(639,57),0,BF
  92. 1900 LINE (582,67)-(611,77),0,BF
  93. 1910 'STOP
  94. 1920 '+++++++++++++++++++++++++++++++++
  95. 1930 'LINE (310,30)-(639,100),,B
  96. 1940 'END
  97. 1950 '++++GET AND PUT DEMO
  98. 1960 '
  99. 1970 '
  100. 1980 '
  101. 1990 '
  102. 2000 '
  103. 2010 '
  104. 2020 GET (310,30)-(639,100),BEANS%
  105. 2030 CLS
  106. 2040 '
  107. 2050 '
  108. 2060 '
  109. 2070 '
  110. 2080 FOR L=1 TO 5
  111. 2090 X=0
  112. 2100 PUT (X,50),BEANS%,XOR
  113. 2110 PUT (310,30),BEANS%,XOR
  114. 2120 'FOR DELAY=1 TO 100:NEXT
  115. 2130 X=200
  116. 2140 PUT (X,90),BEANS%,XOR
  117. 2150 X=0
  118. 2160 PUT (X,125),BEANS%,XOR
  119. 2170 NEXT L
  120. 2180 FOR J=1 TO 3000:NEXT
  121. 2190 FOR K=1 TO 50:PRINT:NEXT
  122. 2200 '++++
  123. 2210 '++++++++
  124. 2220 W=940
  125. 2230 FOR K=1 TO 3
  126. 2240 LOCATE 2+4*S,8:PRINT W
  127. 2250 W=W-230:S=S+2
  128. 2260 NEXT
  129. 2270 '++++
  130. 2280 LOCATE 1,1:PRINT CHR$(80)
  131. 2290 LOCATE 5,1:PRINT CHR$(82)
  132. 2300 LOCATE 9,1:PRINT CHR$(73)
  133. 2310 LOCATE 14,1:PRINT CHR$(67)
  134. 2320 LOCATE 18,1:PRINT CHR$(69)
  135. 2330 '+++++++++++
  136. 2340 LOCATE 2,5:PRINT CHR$(99)
  137. 2350 LOCATE 3,5:PRINT CHR$(101)
  138. 2360 LOCATE 4,5:PRINT CHR$(110)
  139. 2370 LOCATE 5,5:PRINT CHR$(116)
  140. 2380 LOCATE 6,5:PRINT CHR$(115)
  141. 2390 '
  142. 2400 LOCATE 8,5:PRINT CHR$(112)
  143. 2410 LOCATE 9,5:PRINT CHR$(101)
  144. 2420 LOCATE 10,5:PRINT CHR$(114)
  145. 2430 '
  146. 2440 LOCATE 12,5:PRINT CHR$(98)
  147. 2450 LOCATE 13,5:PRINT CHR$(117)
  148. 2460 LOCATE 14,5:PRINT CHR$(115)
  149. 2470 LOCATE 15,5:PRINT CHR$(104)
  150. 2480 LOCATE 16,5:PRINT CHR$(101)
  151. 2490 LOCATE 17,5:PRINT CHR$(108)
  152. 2500 '+++++
  153. 2510 LOCATE 20,13:PRINT"   81    82    83    84    85    86"
  154. 2520 LOCATE 22,1:PRINT"SOYBEANS - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS.     REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
  155. 2530 'SCREEN 2:CLS:KEY OFF
  156. 2540 READ X
  157. 2550 Y=X
  158. 2560 RESTORE
  159. 2570 READ X
  160. 2580 'PRINT X;
  161. 2590 IF X=-1 THEN 2650
  162. 2600 N=N+1
  163. 2610 IF X>Z THEN Z=X
  164. 2620 IF X<Y THEN Y=X
  165. 2630 'PRINT N;X;Y;Z
  166. 2640 GOTO 2570
  167. 2650 NPT=N:N=0
  168. 2660 RESTORE
  169. 2670 '
  170. 2680 READ X:N=N+1
  171. 2690 IF X=-1 THEN 2740
  172. 2700 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
  173. 2710 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
  174. 2720 '
  175. 2730 GOTO 2680
  176. 2740 'END
  177. 2750 '++++++++
  178. 2760 FOR I=101 TO 421 STEP 10
  179. 2770 FOR J=0 TO 140 STEP 10
  180. 2780 PSET(I,J):NEXT:NEXT
  181. 2790 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
  182. 2800 '++++
  183. 2810 '
  184. 2820 '
  185. 2830 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
  186. 2840 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
  187. 2850 LOCATE 4,56:PRINT"LAST PRICE:";" 504"
  188. 2860 LOCATE 7,56:PRINT"TOTAL GAIN:";" $210000"
  189. 2870 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $40500"
  190. 2880 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $19000"
  191. 2890 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 11"
  192. 2900 LOCATE 13,56:PRINT"PROB SUCCESS:";" 64%"
  193. 2910 LOCATE 14,56:PRINT"PROB FAIL:";" 36%"
  194. 2920 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  195. 2930 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $18500"
  196. 2940 '
  197. 2950 'LINE (380,35)-(390,70),1,BF
  198. 2960 'FOR I=0 TO 25
  199. 2970 'LINE (360+I,70+I)-(410-I,70+I)
  200. 2980 'NEXT I
  201. 2990 '
  202. 3000 FOR I=1 TO 5
  203. 3010 LOCATE 15,56:PRINT"                   "
  204. 3020 FOR K=1 TO 900:NEXT K
  205. 3030 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  206. 3040 FOR K=1 TO 900:NEXT K
  207. 3050 NEXT I
  208. 3060 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  209. 3070 '++++
  210. 3080 '
  211. 3090 FOR I=1 TO 10^4:NEXT
  212. 3100 '+++++++SOYBEANS+++++++++++
  213. 3110 '+++++++CBOT+++++++++++++++
  214. 3120 '++++++WEEKLY CLOSE++++++++
  215. 3130 '+++++NEAREST FUTURE+++++++
  216. 3140 '+++CENTS PER BUSHEL+++++++
  217. 3150 '+++++++BEGIN JANUARY '80++
  218. 3160 '++++END 11/14/86++++++++++
  219. 3170 'DATA 644,639,656,662,670
  220. 3180 'DATA 676,655,642,633,627
  221. 3190 'DATA 617,622,595,587,595
  222. 3200 'DATA 592,606,598,619,607
  223. 3210 'DATA 632,624,618,628,636
  224. 3220 'DATA 657,713,748,789,770
  225. 3230 'DATA 794,763,730,749,795
  226. 3240 'DATA 811,808,873,808,806
  227. 3250 'data 825,859,906,897,888
  228. 3260 '
  229. 3270 DATA 908,946,932,845,737
  230. 3280 DATA 785,790,815,793,768
  231. 3290 DATA 725,728,768,749,763
  232. 3300 DATA 738,710,734,763,768
  233. 3310 DATA 780,789,781,792,778
  234. 3320 DATA 766,745,754,767,728
  235. 3330 DATA 742,721,688,702,751
  236. 3340 DATA 742,735,735,714,696
  237. 3350 DATA 680,668,672,657,664
  238. 3360 DATA 648,650,665,657,650
  239. 3370 DATA 651,654,634,651,644
  240. 3380 DATA 667,639,619,617,612
  241. 3390 DATA 630,644,654,658,648
  242. 3400 DATA 627,618,619,605,597
  243. 3410 DATA 620,640,649,660,648
  244. 3420 DATA 663,651,654,663,671
  245. 3430 DATA 638,624,647,624,628
  246. 3440 DATA 607,618,628,618,605
  247. 3450 DATA 592,565,564,560,553
  248. 3460 DATA 538,552,541,530,530
  249. 3470 DATA 536,529,532,568,562
  250. 3480 DATA 565,579,563,569,567
  251. 3490 DATA 561,565,572,589,592
  252. 3500 DATA 594,594,595,598,573
  253. 3510 DATA 577,572,597,628,637
  254. 3520 DATA 648,623,646,640,628
  255. 3530 DATA 617,618,610,618,603
  256. 3540 DATA 594,604,610,617,642
  257. 3550 DATA 707,690,797,853,833
  258. 3560 DATA 933,900,942,867,908
  259. 3570 DATA 866,846,887,833,827
  260. 3580 DATA 857,828,783,796,785
  261. 3590 DATA 784,782,806,815,764
  262. 3600 DATA 778,733,734,735,707
  263. 3610 DATA 718,737,758,784,773
  264. 3620 DATA 800,789,807,774,780
  265. 3630 DATA 782,808,857,888,887
  266. 3640 DATA 827,780,763,788,747
  267. 3650 DATA 678,685,667,613,633
  268. 3660 DATA 637,660,638,633,628
  269. 3670 DATA 603,599,592,590,626
  270. 3680 DATA 631,627,622,620,614
  271. 3690 DATA 611,608,594,591,587
  272. 3700 DATA 573,561,579,596,597
  273. 3710 DATA 607,597,581,573,567
  274. 3720 DATA 576,605,607,603,599
  275. 3730 DATA 598,597,578,590,579
  276. 3740 DATA 568,567,594,585,574
  277. 3750 DATA 563,573,577,555,539
  278. 3760 DATA 523,520,523,512,516
  279. 3770 DATA 513,510,515,507,502
  280. 3780 DATA 504,499,517,521,503
  281. 3790 DATA 488,498,508,523,531
  282. 3800 DATA 527,529,533,532,539
  283. 3810 DATA 533,531,526,524,526
  284. 3820 DATA 532,537,534,535,522
  285. 3830 DATA 524,525,525,531,539
  286. 3840 DATA 532,531,525,533,527
  287. 3850 DATA 533,518,519,528,545
  288. 3860 DATA 522,513,503,514,478
  289. 3870 DATA 483,482,481,507,482
  290. 3880 DATA 482,472,474,487,498
  291. 3885 DATA 497,504,-1
  292. 3890 Y=0:Z=0:N=0:S=0
  293. 3900 'restore 4310
  294. 3910 'DIM X(1000)
  295. 3920 '++++CORN
  296. 3930 SCREEN 2:CLS
  297. 3940 FOR K=1 TO 40
  298. 3950 CIRCLE (375,60),K
  299. 3960 NEXT K
  300. 3970 FOR K=1 TO 15
  301. 3980 CIRCLE (375,60),K,0
  302. 3990 NEXT K
  303. 4000 LINE (380,54)-(425,66),0,BF
  304. 4010 '++++
  305. 4020 FOR K=1 TO 40
  306. 4030 CIRCLE (460,60),K
  307. 4040 NEXT K
  308. 4050 FOR K=1 TO 15
  309. 4060 CIRCLE (460,60),K,0
  310. 4070 NEXT K
  311. 4080 '++++
  312. 4090 LINE (506,43)-(534,77),1,BF
  313. 4100 FOR K=1 TO 15
  314. 4110 CIRCLE (546,49),K
  315. 4120 NEXT K
  316. 4130 '++++
  317. 4140 FOR K=1 TO 40
  318. 4150 CIRCLE (605,60),K
  319. 4160 NEXT K
  320. 4170 FOR K=1 TO 15
  321. 4180 CIRCLE (605,60),K,0
  322. 4190 NEXT K
  323. 4200 LINE (585,55)-(639,80),0,BF
  324. 4210 LINE (565,43)-(595,77),1,BF
  325. 4220 LINE (609,55)-(639,77),1,BF
  326. 4230 '+++++++++++++++++++++++++++++++++
  327. 4240 LINE (320,30)-(639,90),,B
  328. 4250 '
  329. 4260 '++++GET AND PUT DEMO
  330. 4270 '
  331. 4280 '
  332. 4290 '
  333. 4300 '
  334. 4310 '
  335. 4320 '
  336. 4330 GET (320,30)-(639,90),CORN%
  337. 4340 'CLS
  338. 4350 '
  339. 4360 '
  340. 4370 '
  341. 4380 '
  342. 4390 X=320
  343. 4400 PUT (X,95),CORN%,XOR
  344. 4410 'FOR DELAY=1 TO 100:NEXT
  345. 4420 X=0
  346. 4430 PUT (X+N,95),CORN%,XOR
  347. 4440 'X=0
  348. 4450 PUT (X+N,30),CORN%,XOR
  349. 4460 FOR I=0 TO 330 STEP 20
  350. 4470 PUT (X+I,95),CORN%,XOR
  351. 4480 PUT (X+I,30),CORN%,XOR
  352. 4490 PUT (X+I,95),CORN%,XOR
  353. 4500 PUT (X+I,30),CORN%,XOR
  354. 4510 NEXT I
  355. 4520 FOR K=1 TO 3000:NEXT
  356. 4530 FOR J=1 TO 50:PRINT:NEXT
  357. 4540 SCREEN 2:CLS:KEY OFF
  358. 4550 '+++++++++++++++++++++++++++++++++
  359. 4560 'MUST HAVE IBM WITH GRAPH CARD.  +
  360. 4570 'FROM DOS> ENTER BASICA; LOAD    +
  361. 4580 '"KEYS; RUN.                     +
  362. 4590 '+++++++++++++++++++++++++++++++++
  363. 4600 '++++++++
  364. 4610 W=390
  365. 4620 FOR K=1 TO 3
  366. 4630 LOCATE 2+4*S,8:PRINT W
  367. 4640 W=W-115:S=S+2
  368. 4650 NEXT
  369. 4660 '++++
  370. 4670 LOCATE 1,1:PRINT CHR$(80)
  371. 4680 LOCATE 5,1:PRINT CHR$(82)
  372. 4690 LOCATE 9,1:PRINT CHR$(73)
  373. 4700 LOCATE 14,1:PRINT CHR$(67)
  374. 4710 LOCATE 18,1:PRINT CHR$(69)
  375. 4720 '+++++++++++
  376. 4730 LOCATE 2,5:PRINT CHR$(99)
  377. 4740 LOCATE 3,5:PRINT CHR$(101)
  378. 4750 LOCATE 4,5:PRINT CHR$(110)
  379. 4760 LOCATE 5,5:PRINT CHR$(116)
  380. 4770 LOCATE 6,5:PRINT CHR$(115)
  381. 4780 '
  382. 4790 LOCATE 8,5:PRINT CHR$(112)
  383. 4800 LOCATE 9,5:PRINT CHR$(101)
  384. 4810 LOCATE 10,5:PRINT CHR$(114)
  385. 4820 '
  386. 4830 LOCATE 12,5:PRINT CHR$(98)
  387. 4840 LOCATE 13,5:PRINT CHR$(117)
  388. 4850 LOCATE 14,5:PRINT CHR$(115)
  389. 4860 LOCATE 15,5:PRINT CHR$(104)
  390. 4870 LOCATE 16,5:PRINT CHR$(101)
  391. 4880 LOCATE 17,5:PRINT CHR$(108)
  392. 4890 '+++++
  393. 4900 LOCATE 20,13:PRINT"   81    82    83    84    85    86"
  394. 4910 '++++
  395. 4920 LOCATE 22,1:PRINT"CORN - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS.         REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
  396. 4930 READ X
  397. 4940 Y=X
  398. 4950 RESTORE 5460
  399. 4960 READ X
  400. 4970 'PRINT X;
  401. 4980 IF X=-1 THEN 5040
  402. 4990 N=N+1
  403. 5000 IF X>Z THEN Z=X
  404. 5010 IF X<Y THEN Y=X
  405. 5020 'PRINT N;X;Y;Z
  406. 5030 GOTO 4960
  407. 5040 NPT=N:N=0
  408. 5050 RESTORE 5460
  409. 5060 '
  410. 5070 READ X:N=N+1
  411. 5080 IF X=-1 THEN 5130
  412. 5090 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
  413. 5100 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
  414. 5110 '
  415. 5120 GOTO 5070
  416. 5130 'END
  417. 5140 '++++++++
  418. 5150 FOR I=101 TO 421 STEP 10
  419. 5160 FOR J=0 TO 140 STEP 10
  420. 5170 PSET(I,J):NEXT:NEXT
  421. 5180 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
  422. 5190 '
  423. 5200 '
  424. 5210 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
  425. 5220 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
  426. 5230 LOCATE 4,56:PRINT"LAST PRICE:";" 171"
  427. 5240 LOCATE 7,56:PRINT"TOTAL GAIN:";" $172500"
  428. 5250 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $18500"
  429. 5260 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $8500"
  430. 5270 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 15"
  431. 5280 LOCATE 13,56:PRINT"PROB SUCCESS:";" 74%"
  432. 5290 LOCATE 14,56:PRINT"PROB FAIL:";" 26%"
  433. 5300 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  434. 5310 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $11000"
  435. 5320 '++++
  436. 5330 '
  437. 5340 'LINE (380,5)-(390,40),1,BF
  438. 5350 'FOR I=0 TO 25
  439. 5360 'LINE (360+I,40+I)-(410-I,40+I)
  440. 5370 'NEXT I
  441. 5380 FOR I=1 TO 5
  442. 5390 LOCATE 15,56:PRINT"                   "
  443. 5400 FOR J=1 TO 900:NEXT J
  444. 5410 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  445. 5420 FOR J=1 TO 900:NEXT J
  446. 5430 NEXT I
  447. 5440 LOCATE 15,56:PRINT"PRICE DIRECT:";" DOWN"
  448. 5450 FOR I=1 TO 10^4:NEXT
  449. 5460 '+++++++++CORN++++++++++++
  450. 5470 '+++++++CBOT++++++++++++++
  451. 5480 '++++++++WEEKLY+++++++++++
  452. 5490 '+++++NEAREST FUTURE++++++
  453. 5500 '++CENTS PER BUSHEL+++++++
  454. 5510 '+++ JANUARY '80++++++++++
  455. 5520 '++++++++END 11/14/86+++++
  456. 5530 'DATA 284,273,274,272,277
  457. 5540 'DATA 274,273,268,263,265
  458. 5550 'DATA 263,268,260,269,271
  459. 5560 'DATA 267,270,268,275,272
  460. 5570 'DATA 280,277,274,278,281
  461. 5580 'DATA 283,296,302,323,321
  462. 5590 'DATA 338,341,333,342,360
  463. 5600 'DATA 358,348,357,345,346
  464. 5610 'data 354,360,374,374,376
  465. 5620 'data 380,388
  466. 5630 DATA 393,373,353
  467. 5640 DATA 376,378,381,374,379
  468. 5650 DATA 361,356,368,364,363
  469. 5660 DATA 360,349,348,360,362
  470. 5670 DATA 363,366,367,364,362
  471. 5680 DATA 352,342,345,352,340
  472. 5690 DATA 348,344,328,335,346
  473. 5700 DATA 343,342,339,327,309
  474. 5710 DATA 304,292,292,277,277
  475. 5720 DATA 287,288,292,291,287
  476. 5730 DATA 288,288,284,278,275
  477. 5740 DATA 263,267,254,250,268
  478. 5750 DATA 271,275,273,273,275
  479. 5760 DATA 274,270,263,257,259
  480. 5770 DATA 256,263,272,277,281
  481. 5780 DATA 280,278,276,272,269
  482. 5790 DATA 281,275,270,277,274
  483. 5800 DATA 272,265,263,273,256
  484. 5810 DATA 245,242,227,226,228
  485. 5820 DATA 229,214,224,225,220
  486. 5830 DATA 221,220,218,215,230
  487. 5840 DATA 236,240,238,231,234
  488. 5850 DATA 235,242,245,248,256
  489. 5860 DATA 257,263,268,274,278
  490. 5870 DATA 277,280,274,287,304
  491. 5880 DATA 313,315,311,315,317
  492. 5890 DATA 317,300,304,302,307
  493. 5900 DATA 309,309,319,320,330
  494. 5910 DATA 330,325,320,350,358
  495. 5920 DATA 353,360,358,367,344
  496. 5930 DATA 355,355,350,353,341
  497. 5940 DATA 348,354,357,346,339
  498. 5950 DATA 337,330,327,343,337
  499. 5960 DATA 330,335,323,329,330
  500. 5970 DATA 325,319,325,334,344
  501. 5980 DATA 349,354,354,359,354
  502. 5990 DATA 358,344,346,348,356
  503. 6000 DATA 353,349,347,347,354
  504. 6010 DATA 353,343,351,307,287
  505. 6020 DATA 298,294,295,305,296
  506. 6030 DATA 301,313,285,279,281
  507. 6040 DATA 283,279,277,275,276
  508. 6050 DATA 276,270,265,257,255
  509. 6060 DATA 265,268,270,270,273
  510. 6070 DATA 272,272,272,269,266
  511. 6080 DATA 265,267,270,280,281
  512. 6090 DATA 283,281,285,284,282
  513. 6100 DATA 282,281,275,275,280
  514. 6110 DATA 277,275,270,272,275
  515. 6120 DATA 281,240,230,228,232
  516. 6130 DATA 234,230,227,223,219
  517. 6140 DATA 223,225,224,220,221
  518. 6150 DATA 234,237,239,238,244
  519. 6160 DATA 244,252,251,252,249
  520. 6170 DATA 250,251,242,245,240
  521. 6180 DATA 237,238,230,233,236
  522. 6190 DATA 231,233,234,227,227
  523. 6200 DATA 229,235,248,258,234
  524. 6210 DATA 237,238,230,235,224
  525. 6220 DATA 201,203,210,174,169
  526. 6230 DATA 165,159,154,152,153
  527. 6240 DATA 166,172,170,167,164
  528. 6250 DATA 174,173,173,171,-1
  529. 6260 Y=0:Z=0:N=0:S=0
  530. 6270 '++++++++++++++++++++++++++++++++++++++
  531. 6280 '++++++++++++++++++++++++++++++++++++++
  532. 6290 '++++++++++++++++++++++++++++++++++++++
  533. 6300 'DIM X(1000)
  534. 6310 '++++WHEAT
  535. 6320 SCREEN 2:CLS
  536. 6330 FOR I=1 TO 50
  537. 6340 LINE (330+I/3.5,37+I)-(360-I/3.5,37+I)
  538. 6350 LINE (360+I/3.5,37+I)-(390-I/3.5,37+I)
  539. 6360 NEXT I
  540. 6370 '
  541. 6380 '++++
  542. 6390 LINE (395,38)-(440,87),1,BF
  543. 6400 LINE (420,38)-(450,57),0,BF
  544. 6410 LINE (420,67)-(425,87),0,BF
  545. 6420 '++++
  546. 6430 FOR K=1 TO 35
  547. 6440 CIRCLE (480,73),K
  548. 6450 NEXT K
  549. 6460 FOR K=1 TO 15
  550. 6470 CIRCLE (480,73),K,0
  551. 6480 NEXT K
  552. 6490 LINE (481,71)-(515,77),0,BF
  553. 6500 LINE (465,67)-(495,70),1,BF
  554. 6510 '++++
  555. 6520 '++++
  556. 6530 FOR K=1 TO 35
  557. 6540 CIRCLE (555,73),K
  558. 6550 NEXT K
  559. 6560 FOR K=1 TO 15
  560. 6570 CIRCLE (555,73),K,0
  561. 6580 NEXT K
  562. 6590 LINE (570,75)-(590,87),1,BF
  563. 6600 '++++
  564. 6610 LINE (595,37)-(620,87),1,BF
  565. 6620 LINE (575,50)-(639,57),1,BF
  566. 6630 '+++++++++++++++++++++++++++++++++
  567. 6640 'LINE (320,30)-(639,100),,B
  568. 6650 '++++GET AND PUT DEMO
  569. 6660 '
  570. 6670 '
  571. 6680 '
  572. 6690 '
  573. 6700 '
  574. 6710 '
  575. 6720 GET (320,30)-(639,100),WHEAT%
  576. 6730 'CLS
  577. 6740 '
  578. 6750 '
  579. 6760 '
  580. 6770 '
  581. 6780 FOR X=320 TO 0 STEP -10
  582. 6790 PUT (X,30),WHEAT%,XOR
  583. 6800 'FOR DELAY=1 TO 100:NEXT
  584. 6810 PUT (X,30),WHEAT%,XOR
  585. 6820 NEXT
  586. 6830 '++++
  587. 6840 PUT (0,30),WHEAT%,XOR
  588. 6850 FOR X=0 TO 50 STEP 5
  589. 6860 PUT (0,30+X),WHEAT%,XOR
  590. 6870 PUT (320,30+X),WHEAT%,XOR
  591. 6880 PUT (0,30+X),WHEAT%,XOR
  592. 6890 PUT (320,30+X),WHEAT%,XOR
  593. 6900 NEXT
  594. 6910 CLS
  595. 6920 PUT (160,50),WHEAT%,XOR
  596. 6930 FOR K=1 TO 3000:NEXT
  597. 6940 FOR J=1 TO 50:PRINT:NEXT
  598. 6950 SCREEN 2:CLS:KEY OFF
  599. 6960 '+++++++++++++++++++++++++++++++++
  600. 6970 'MUST HAVE IBM WITH GRAPH CARD.  +
  601. 6980 'FROM DOS> ENTER BASICA; LOAD    +
  602. 6990 '"KEYS; RUN.                     +
  603. 7000 '+++++++++++++++++++++++++++++++++
  604. 7010 '++++++++
  605. 7020 W=520
  606. 7030 FOR K=1 TO 3
  607. 7040 LOCATE 2+4*S,8:PRINT W
  608. 7050 W=W-130:S=S+2
  609. 7060 NEXT
  610. 7070 '++++
  611. 7080 LOCATE 1,1:PRINT CHR$(80)
  612. 7090 LOCATE 5,1:PRINT CHR$(82)
  613. 7100 LOCATE 9,1:PRINT CHR$(73)
  614. 7110 LOCATE 14,1:PRINT CHR$(67)
  615. 7120 LOCATE 4,5:PRINT CHR$(110)
  616. 7130 LOCATE 18,1:PRINT CHR$(69)
  617. 7140 '+++++++++++
  618. 7150 LOCATE 2,5:PRINT CHR$(99)
  619. 7160 LOCATE 3,5:PRINT CHR$(101)
  620. 7170 LOCATE 5,5:PRINT CHR$(116)
  621. 7180 LOCATE 6,5:PRINT CHR$(115)
  622. 7190 '
  623. 7200 LOCATE 8,5:PRINT CHR$(112)
  624. 7210 LOCATE 9,5:PRINT CHR$(101)
  625. 7220 LOCATE 10,5:PRINT CHR$(114)
  626. 7230 '
  627. 7240 LOCATE 12,5:PRINT CHR$(98)
  628. 7250 LOCATE 13,5:PRINT CHR$(117)
  629. 7260 LOCATE 14,5:PRINT CHR$(115)
  630. 7270 LOCATE 15,5:PRINT CHR$(104)
  631. 7280 LOCATE 16,5:PRINT CHR$(101)
  632. 7290 LOCATE 17,5:PRINT CHR$(108)
  633. 7300 '+++++
  634. 7310 LOCATE 20,13:PRINT"   81    82    83    84    85    86"
  635. 7320 '++++
  636. 7330 LOCATE 22,1:PRINT"WHEAT - CBOT - WEEKLY CLOSING PRICE (CENTS PER BUSHEL) - LAST 312 WEEKS.        REPORT OF PRICE SPECULATION - ALL CASH BASIS - 50000 BUSHELS.
  637. 7340 READ X
  638. 7350 Y=X
  639. 7360 RESTORE 7870
  640. 7370 READ X
  641. 7380 'PRINT X;
  642. 7390 IF X=-1 THEN 7450
  643. 7400 N=N+1
  644. 7410 IF X>Z THEN Z=X
  645. 7420 IF X<Y THEN Y=X
  646. 7430 'PRINT N;X;Y;Z
  647. 7440 GOTO 7370
  648. 7450 NPT=N:N=0
  649. 7460 RESTORE 7870
  650. 7470 '
  651. 7480 READ X:N=N+1
  652. 7490 IF X=-1 THEN 7540
  653. 7500 LINE (100+N,(Z-X)/((Z-Y)/145))-(N+100,145),1
  654. 7510 LINE (N+100,(Z-X)/((Z-Y)/145))-(N+100,0),2
  655. 7520 '
  656. 7530 GOTO 7480
  657. 7540 'END
  658. 7550 '++++++++
  659. 7560 FOR I=101 TO 421 STEP 10
  660. 7570 FOR J=0 TO 140 STEP 10
  661. 7580 PSET(I,J):NEXT:NEXT
  662. 7590 FOR I=101 TO 421 STEP 10:PSET (I,145):NEXT
  663. 7600 '
  664. 7610 '
  665. 7620 LOCATE 1,56:PRINT"UPDATE ON:";" 11-14-1986"
  666. 7630 LOCATE 2,56:PRINT"PROJECT TO:";" 11-21-1986"
  667. 7640 LOCATE 4,56:PRINT"LAST PRICE:";" 282"
  668. 7650 LOCATE 7,56:PRINT"TOTAL GAIN:";" $123500"
  669. 7660 LOCATE 8,56:PRINT"AVERAGE GAIN:";" $16500"
  670. 7670 LOCATE 9,56:PRINT"AVERAGE LOSS:";" $7500"
  671. 7680 LOCATE 12,56:PRINT"# OF DIRECTIONS:";" 13"
  672. 7690 LOCATE 13,56:PRINT"PROB SUCCESS:";" 69%"
  673. 7700 LOCATE 14,56:PRINT"PROB FAIL:";" 23%"
  674. 7710 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
  675. 7720 LOCATE 18,56:PRINT"GAIN / DIRECT:";" $10000"
  676. 7730 '++++
  677. 7740 '
  678. 7750 'LINE (380,35)-(390,70),1,BF
  679. 7760 'FOR I=0 TO 25
  680. 7770 'LINE (360+I,35-I)-(410-I,35-I)
  681. 7780 'NEXT I
  682. 7790 FOR I=1 TO 5
  683. 7800 LOCATE 15,56:PRINT"                  "
  684. 7810 FOR J=1 TO 900:NEXT J
  685. 7820 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
  686. 7830 FOR J=1 TO 900:NEXT J
  687. 7840 NEXT I
  688. 7850 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
  689. 7860 FOR I=1 TO 10^4:NEXT
  690. 7870 '++++++++WHEAT++++++++++++
  691. 7880 '++++++CBOT+++++++++++++++
  692. 7890 '++++++++WEEKLY+++++++++++
  693. 7900 '+++++NEAREST FUTURE++++++
  694. 7910 '++CENTS PER BUSHEL+++++++
  695. 7920 '+++ JANUARY '80++++++++++
  696. 7930 '++++++END 11/14/86+++++++
  697. 7940 'DATA 445,425,451,448,473
  698. 7950 'DATA 457,447,445,434,437
  699. 7960 'DATA 426,422,395,406,407
  700. 7970 'DATA 380,397,393,419,408
  701. 7980 'DATA 417,403,394,403,413
  702. 7990 'DATA 423,439,423,433,450
  703. 8000 'DATA 464,454,445,453,470
  704. 8010 'DATA 467,507,497,499,514
  705. 8020 'data 527,538,529
  706. 8030 DATA 524,519
  707. 8040 DATA 426
  708. 8050 DATA 508,489,448,490,482
  709. 8060 DATA 508,492,503,472,466
  710. 8070 DATA 472,455,461,447,429
  711. 8080 DATA 432,425,429,430,441
  712. 8090 DATA 438,440,438,409,403
  713. 8100 DATA 403,413,409,408,397
  714. 8110 DATA 374,380,397,388,413
  715. 8120 DATA 408,407,409,397,388
  716. 8130 DATA 396,400,402,424,426
  717. 8140 DATA 428,432,438,439,438
  718. 8150 DATA 435,417,417,416,394
  719. 8160 DATA 374,379,392,402,394
  720. 8170 DATA 379,377,371,367,360
  721. 8180 DATA 356,356,338,356,362
  722. 8190 DATA 366,366,377,376,357
  723. 8200 DATA 344,349,360,352,342
  724. 8210 DATA 351,346,346,350,330
  725. 8220 DATA 342,352,343,344,340
  726. 8230 DATA 340,344,336,326,315
  727. 8240 DATA 339,322,318,308,305
  728. 8250 DATA 318,334,333,335,337
  729. 8260 DATA 322,316,310,336,331
  730. 8270 DATA 332,346,334,335,345
  731. 8280 DATA 343,344,324,318,317
  732. 8290 DATA 340,360,360,364,350
  733. 8300 DATA 352,354,347,355,347
  734. 8310 DATA 346,343,349,347,340
  735. 8320 DATA 336,344,366,373,378
  736. 8330 DATA 382,383,387,385,387
  737. 8340 DATA 364,374,371,370,371
  738. 8350 DATA 364,358,358,349,337
  739. 8360 DATA 342,347,341,347,361
  740. 8370 DATA 364,359,362,339,327
  741. 8380 DATA 334,326,334,330,340
  742. 8390 DATA 354,358,361,374,367
  743. 8400 DATA 373,371,358,360,360
  744. 8410 DATA 383,366,355,353,350
  745. 8420 DATA 354,353,345,343,347
  746. 8430 DATA 344,356,355,345,347
  747. 8440 DATA 342,349,339,352,347
  748. 8450 DATA 349,348,353,360,361
  749. 8460 DATA 362,356,362,354,348
  750. 8470 DATA 345,347,347,342,349
  751. 8480 DATA 351,347,355,358,347
  752. 8490 DATA 349,347,346,356,357
  753. 8500 DATA 357,364,362,356,348
  754. 8510 DATA 337,346,343,317,315
  755. 8520 DATA 320,327,327,319,317
  756. 8530 DATA 311,299,295,288,286
  757. 8540 DATA 293,283,275,283,279
  758. 8550 DATA 287,301,293,304,314
  759. 8560 DATA 319,325,327,341,335
  760. 8570 DATA 334,344,345,340,345
  761. 8580 DATA 330,337,327,317,328
  762. 8590 DATA 325,332,335,337,347
  763. 8600 DATA 350,310,304,311,286
  764. 8610 DATA 284,289,311,350,327
  765. 8620 DATA 257,248,256,245,257
  766. 8630 DATA 250,264,262,257,263
  767. 8640 DATA 258,252,259,261,258
  768. 8650 DATA 253,264,268,273,277
  769. 8660 DATA 288,287,289,282,-1
  770. 8670 Y=0:Z=0:N=0:S=0
  771. 8680 RESTORE
  772. 8690 '++++
  773. 8700 CLS
  774. 8710 LINE (0,0)-(150,199),1,BF
  775. 8720 FOR J=1 TO 100
  776. 8730 LINE (50+J,99+J)-(50+J,99-J),0
  777. 8740 NEXT J
  778. 8750 '++++
  779. 8760 LINE (150,0)-(300,199),1,BF
  780. 8770 LINE (200,50)-(300,83),0,BF
  781. 8780 LINE (200,116)-(300,150),0,BF
  782. 8790 '++++
  783. 8800 FOR J=100 TO 1 STEP -1
  784. 8810 LINE (400-J,100-J)-(400+J,100-J)
  785. 8820 NEXT J
  786. 8830 LINE (375,75)-(425,199),1,BF
  787. 8840 LINE (405,120)-(425,140),0,BF
  788. 8850 LINE (405,150)-(425,170),0,BF
  789. 8860 FOR K=1 TO 50
  790. 8870 CIRCLE (400,25),K,0
  791. 8880 NEXT K
  792. 8890 '++++
  793. 8900 LINE (500,0)-(639,199),1,BF
  794. 8910 LINE (550,50)-(639,83),0,BF
  795. 8920 LINE (500,116)-(589,150),0,BF
  796. 8930 '++++
  797. 8940 FOR J=0 TO 4
  798. 8950 FOR I=0 TO 199 STEP 10
  799. 8960 LINE (0,I+J)-(639,I+J),0
  800. 8970 NEXT I
  801. 8980 LINE (0,194)-(639,199),0,BF
  802. 8990 NEXT J
  803. 9000 '++++
  804. 9010 FOR K=1 TO 50:PRINT:NEXT K
  805. 9020 '++++
  806. 9030 GOTO 1120
  807.